home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / sammy title (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  223 lines
  1. 0 print"[147]"
  2. 1 x=rnd(-ti)
  3. 2 goto100
  4. 3 rem goto130:rem unrem if unpacked
  5. 4 rem intro 1
  6. 5 v=53248:s=54272:poke53272,31
  7. 6 gosub1530:sys49435:poke781,0:poke782,136:sys49458:poke49152,7
  8. 7 dim ac(8):fori=1to8:ac(i)=.:nexti
  9. 8 dimsn(7):fori=1to7:readsn(i):nexti
  10. 9 data11,13,14,15,14,13,11
  11. 10 dimc(6):fori=1to6:readc(i):next
  12. 11 data 7,5,10,12,14,15
  13. 12 fori=1to8:k=i:k=k-1:k=k*2:pokev+1+k,255:poke2040+i-1,11:nexti
  14. 13 pokev+21,255:pokev+37,7:pokev+38,11:pokev+28,255:pokev+29,0:pokev+23,0
  15. 14 c$="[154][159][154][144]":fori=1to3:gosub40:nexti:gosub16:fori=4to6:gosub40:nexti:goto60
  16. 15 rem main loop
  17. 16 fori=1to5:ifac(i)<>.then18
  18. 17 r=int(rnd(1)*2)+1:ifr=2thenac(i)=1:k=i:k=k-1:k=k*2:gosub23
  19. 18 ifac(i)=.then21
  20. 19 k=i:b=ac(k):poke2040+k-1,sn(b):ac(k)=ac(k)+1
  21. 20 ifac(k)>7thenac(k)=0:b=k-1:b=b*2:pokev+1+b,255
  22. 21 nexti:z=z+1:ifz>32thengosub85:return
  23. 22 goto16:rem choose random x y color
  24. 23 x=int(rnd(1)*155)+1:y=int(rnd(1)*28)+1:x=x+100:y=y+112:pokev+.+k,x
  25. 24 pokev+1+k,y:r=int(rnd(1)*6)+1:pokev+39+k,c(r):return
  26. 40 rem loadstar presents
  27. 41 printmid$(c$,i,1):gosub45:return
  28. 45 forw=1to35:nextw
  29. 46 print"loadstar presents"
  30. 47 forw=1to35:nextw:return
  31. 50 return
  32. 55 rem intro part 2
  33. 60 z=.:forw=1to800:nextw
  34. 61 fori=1to3:gosub66:nexti:gosub16:fori=4to6:gosub66:nexti:goto80
  35. 66 printmid$(c$,i,1):gosub69:return
  36. 69 forw=1to35:nextw
  37. 70 print"a"
  38. 71 print"richard j. derocher"
  39. 72 print"production"
  40. 73 forw=1to35:nextw:return
  41. 80 goto190
  42. 84 rem move sprites off screen
  43. 85 fori=1to8:k=i:k=k-1:k=k*2:pokev+1+k,255:poke2040+i-1,11:nexti:return
  44. 100 dv=peek(186):if dv<8 then dv=8
  45. 110 print"[147]":z5=0:sb=53265:s1=11:s2=27
  46. 120 poke 53280,0:poke 53281,0:print chr$(14):print chr$(8):goto3
  47. 130 sys57812"sm music player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  48. 140 sys57812"sm font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  49. 150 f$="etal.mux"
  50. 160 sys57812f$,dv,0:poke780,0:poke781,0:poke782,132:sys65493
  51. 170 f$="holst.mux":sys57812f$,dv,0:poke780,0:poke781,0:poke782,136:sys65493
  52. 175 sys57812"sm sprites",dv,0:poke780,0:poke781,64:poke782,3:sys65493
  53. 177 sys57812"sm sprite",dv,0:poke780,0:poke781,192:poke782,2:sys65493:goto5
  54. 180 rem intro part 2
  55. 190 printchr$(14)
  56. 200 rem gosub1530:sys49435:poke781,0:poke782,136:sys49458:poke49152,7
  57. 210 forw=1to1000:nextw:print"[147][159]who knows what evil lurks"
  58. 220 printspc(7)"in the heart of the city?"
  59. 230 forw=1to3000:nextw
  60. 240 printspc(6)"sammy marlo doesn't know..."
  61. 250 forw=1to2000:nextw
  62. 260 printspc(6)"but he'll make a good guess"
  63. 270 printspc(7)"if the price is right..."
  64. 280 forw=1to4000:nextw
  65. 290 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  66. 300 print"[147]"
  67. 310 gosub1530:sys49435:poke781,0:poke782,132:sys49458:poke49152,7:gosub1550
  68. 320 t=ti+2320:poke 198,0
  69. 330 kb=peek(198)
  70. 340 if kb<>0 goto 370
  71. 350 if t<ti then goto 370
  72. 360 goto 330
  73. 370 rem credits
  74. 380 poke198,0:gosub1190
  75. 390 print tab(17)"game by"
  76. 400 print tab(11)"richard j. derocher"
  77. 410 gosub620:ifz5=1then570
  78. 420 gosub880:print"":print tab(26)"written with"
  79. 430 print tab(24)"quest writer by"
  80. 440 print tab(26)"[145]jon mattson"
  81. 450 gosub620:ifz5=1then570
  82. 460 gosub1370:printtab(13)"title music by"
  83. 470 print tab(14)"harry bratt"
  84. 480 gosub620:ifz5=1then570
  85. 490 gosub660:print tab(11)"title pictures by"
  86. 500 print tab(10)"cheryl de boissiere"
  87. 510 poke 53265,27
  88. 520 t=t+2670:poke 198,0
  89. 530 kb=peek(198)
  90. 540 if kb<>0 then goto 570
  91. 550 if t<ti then goto 570
  92. 560 goto 530
  93. 570 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  94. 580 print"[147]":printchr$(14):poke 214,12:poke 211,15:sys 58732
  95. 590 poke53272,20:print "[159]loading..."
  96. 600 gosub1810
  97. 610 :rem wait sub
  98. 620 forw=1to1000
  99. 630 kb=peek(198)
  100. 640 ifkb<>0thenz5=1:w=7000
  101. 650 nextw:return
  102. 660 rem room
  103. 670 pokesb,s1:print"[147][152]    [181]   [167][207][196][192][198][185][187]                   [180]   ";
  104. 680 print"      [181][146][176][192][192][174][180][160][160][160][160][181]                   [180] ";
  105. 690 print"        [181][146][221]  [161][180]    [181]                   ";
  106. 700 print"[180]         [181][146][221]  [161][180]    [181]                 ";
  107. 710 print"  [180]         [181][146][221]  [161][180]    [181]               ";
  108. 720 print"    [180]         [181][146][221]  [161][180][187]   [181]             ";
  109. 730 print"      [180]         [181][146][221]  [161][180][181]   [181]           ";
  110. 740 print"        [180]         [181][146][221]  [161][180][161]   [181]         ";
  111. 750 print"          [180]         [181][146][221]  [161][180][181]   [181]       ";
  112. 760 print"            [180]         [181][146][221]  [161][180][190]   [181]     ";
  113. 770 print"              [180]         [181][146][221]  [161][180]    [181]   ";
  114. 780 print"                [180]         [181][146][221]  [161][180]    [181] ";
  115. 790 print"                  [180]         [181][146][221][164][164][152][161][180]  ";
  116. 800 print"  [181]                   [180]         [181][146][221]  [152]";
  117. 810 print"[161][180]    [181]                   [180]         [181][146][221]";
  118. 820 print"  [152][161][180]    [181]                   [180]         ";
  119. 830 print"[181][146][221]  [152][161][165]    [181]                   [180]     ";
  120. 840 print"   [146][169][169]   [152][146][188][185][162][146][184][183][163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  121. 850 print"[162][187][152][223]       [146][169][169]                       ";
  122. 860 print"       [223][152][146][223]     [146][169][169]                  ";
  123. 870 print"              [223][152][146][223]   [146][155]":pokesb,s2:return
  124. 880 rem slick guy
  125. 890 pokesb,s1:print"[147]      [151][162][184][184][184][184][183][183][183][184][146][162][187][159] [155] ";
  126. 900 print"      [159]                   [151][184]           ";
  127. 910 print" [188][155][146]       [159]                  [152][190] [151]     ";
  128. 920 print"     [185][185] [188][155][146]      [159]                [152][172][151][172][150]";
  129. 930 print"[146][172][152][185] [164][151][172][150][184][184][184][151][187]     [191][152][146][172][188][155][146]      [159]    ";
  130. 940 print"           [152] [167][150][185][162][146] [163][163]    [151][146][188][185][150][146][172][184][184][152][146]";
  131. 950 print"[172]  [155][146]        [159]            [156] [152] [167][129]  [150][146][162]";
  132. 960 print"[151] [150]      [162][146][190][129][184][184][146] [150] [152] [188][155][146]     [159]      ";
  133. 970 print"        [150] [151] [152][172][129] [162] [146][162][151] [150][188]    [146][172][129][190]  [146] ";
  134. 980 print" [150][187][152] [151][146][161][155]     [159]             [150] [151] [129][146][182] ";
  135. 990 print"[188][146][187][162][175] [146][191]  [150]  [129] [162][146]   [150][188][151] [146][181][155]     [159]   ";
  136. 1000 print"          [150] [152] [129][146][182][150] [182][182][146] [161][129][190][190][146] [188] [172][146] ";
  137. 1010 print"[182][146] [161][129]  [151] [146][180][155]     [159]             [150] [152]";
  138. 1020 print" [182][150]  [183][183][183] [129] [146][161] [188]       [152] [146][180] [155]    [159]    ";
  139. 1030 print"        [150]  [152][188][182][150]  [146][191]  [129] [150] [129][146][161]    [172]  [146] ";
  140. 1040 print"[170][152] [146]  [155]   [159]             [150]     [146][191]  ";
  141. 1050 print" [172][187][129][188][146] [172]  [150] [129] [172][146] [170]    [155]   [159]          ";
  142. 1060 print" [150]    [170][170] [172][146][190][129][187][162]  [146]  [191] [188] [146]  [170]    [155]  ";
  143. 1070 print"[159]             [150]   [182][182] [129][146][162] [188][146][188][187] [146]      ";
  144. 1080 print"   [187]   [155]  [159]              [150]  [161]  [129] [150]  [129]";
  145. 1090 print" [146][187][162][146]  [187]      [180]   [155]    [159]            [150]";
  146. 1100 print"  [161]    [129][187]    [146][187]   [129][191][155][146]  [167]    [155]  [159]  ";
  147. 1110 print"             [150]      [146] [162][162][162][162][155][162][162]  [155]   ";
  148. 1120 print"[180][146]    [155]  [159]                [156] [150][188]  [129]  [155][146]";
  149. 1130 print" [162][175]